object BForm1: TBForm1 Left = 131 Top = 68 Width = 465 Height = 397 ActiveControl = PMultiImage1 Caption = 'Toolbar Example' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate TextHeight = 13 object Label1: TLabel Left = 12 Top = 8 Width = 406 Height = 13 Caption = 'A Toolbar can only be used if the form is NON Modal otherwise it' + ' will not stay on top.' end object Bevel1: TBevel Left = 312 Top = 27 Width = 135 Height = 342 end object Label2: TLabel Left = 334 Top = 28 Width = 87 Height = 13 Caption = 'Customize Toolbar' Font.Color = clPurple Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 116 Top = 293 Width = 28 Height = 13 Caption = 'tbTop' end object Label4: TLabel Left = 117 Top = 317 Width = 27 Height = 13 Caption = 'tbLeft' end object CheckBox1: TCheckBox Left = 320 Top = 77 Width = 121 Height = 16 Caption = 'ImageOpen' State = cbChecked TabOrder = 1 OnClick = CheckBox1Click end object CheckBox2: TCheckBox Left = 320 Top = 95 Width = 121 Height = 16 Caption = 'ImageSave' State = cbChecked TabOrder = 2 OnClick = CheckBox1Click end object CheckBox3: TCheckBox Left = 320 Top = 131 Width = 121 Height = 16 Caption = 'CutImage' State = cbChecked TabOrder = 3 OnClick = CheckBox1Click end object CheckBox4: TCheckBox Left = 320 Top = 148 Width = 121 Height = 16 Caption = 'CopyImage' State = cbChecked TabOrder = 4 OnClick = CheckBox1Click end object CheckBox5: TCheckBox Left = 320 Top = 167 Width = 121 Height = 16 Caption = 'PasteImage' State = cbChecked TabOrder = 5 OnClick = CheckBox1Click end object CheckBox6: TCheckBox Left = 320 Top = 184 Width = 121 Height = 16 Caption = 'ZoomInImage' State = cbChecked TabOrder = 6 OnClick = CheckBox1Click end object CheckBox7: TCheckBox Left = 320 Top = 202 Width = 121 Height = 16 Caption = 'ZoomOutImage' State = cbChecked TabOrder = 7 OnClick = CheckBox1Click end object CheckBox8: TCheckBox Left = 320 Top = 220 Width = 121 Height = 16 Caption = 'RotateImage' State = cbChecked TabOrder = 8 OnClick = CheckBox1Click end object CheckBox9: TCheckBox Left = 320 Top = 238 Width = 121 Height = 16 Caption = 'FlipImage' State = cbChecked TabOrder = 9 OnClick = CheckBox1Click end object CheckBox10: TCheckBox Left = 320 Top = 256 Width = 121 Height = 16 Caption = 'ResetImage' State = cbChecked TabOrder = 10 OnClick = CheckBox1Click end object CheckBox11: TCheckBox Left = 320 Top = 273 Width = 121 Height = 16 Caption = 'StretchImage' State = cbChecked TabOrder = 11 OnClick = CheckBox1Click end object CheckBox12: TCheckBox Left = 320 Top = 291 Width = 121 Height = 16 Caption = 'StretchImageratio' State = cbChecked TabOrder = 12 OnClick = CheckBox1Click end object CheckBox13: TCheckBox Left = 320 Top = 113 Width = 121 Height = 16 Caption = 'PrintImage' State = cbChecked TabOrder = 13 OnClick = CheckBox1Click end object CheckBox14: TCheckBox Left = 320 Top = 309 Width = 121 Height = 16 Caption = 'ScrolMessage' State = cbChecked TabOrder = 14 OnClick = CheckBox1Click end object CheckBox15: TCheckBox Left = 320 Top = 327 Width = 121 Height = 16 Caption = 'CreditMessage' State = cbChecked TabOrder = 15 OnClick = CheckBox1Click end object CheckBox17: TCheckBox Left = 136 Top = 340 Width = 97 Height = 17 Caption = 'Show Toolbar' TabOrder = 16 OnClick = CheckBox17Click end object PMultiImage1: TPMultiImage Left = 17 Top = 64 Width = 293 Height = 210 Color = clNavy Font.Color = clLime Font.Height = -11 Font.Name = 'Times New Roman' Font.Style = [] ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 ParentFont = False StretchRatio = True Text = 'ImageLib' TextShadowColor = clSilver TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 0 TabStop = False end object CheckBox18: TCheckBox Left = 320 Top = 40 Width = 121 Height = 16 Caption = 'ScanImage' State = cbChecked TabOrder = 17 OnClick = CheckBox1Click end object CheckBox19: TCheckBox Left = 320 Top = 344 Width = 121 Height = 16 Caption = 'ColorPalette' State = cbChecked TabOrder = 18 OnClick = CheckBox1Click end object SpinEdit1: TSpinEdit Left = 152 Top = 288 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 19 Value = 1 OnChange = SpinEdit1Change end object SpinEdit2: TSpinEdit Left = 152 Top = 312 Width = 57 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 20 Value = 1 OnChange = SpinEdit2Change end object CheckBox16: TCheckBox Left = 321 Top = 58 Width = 121 Height = 16 Caption = 'Select Scanner' State = cbChecked TabOrder = 21 OnClick = CheckBox1Click end object ImageToolBar1: TMImageToolBar PreviewsDir = 'c:\' tbLeft = 1 tbTop = 1 tbCaption = 'Image Toolbar' MultiImage = PMultiImage1 OpenDialogFilter = 'all images|*.jpg;*.bmp;*.gif;*.pcx;*.wmf;*.ico;*.png;*.scm;*.cms' + '|jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png|scroll|*.' + 'scm|credit|*.cms|metafile|*.wmf|icon|*.ico' SaveDialogFilter = 'all images|*.jpg;*.bmp;*.gif;*.pcx;*.wmf;*.ico;*.png;*.scm;*.cms' + '|jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png|scroll|*.' + 'scm|credit|*.cms|metafile|*.wmf|icon|*.ico' Left = 32 Top = 288 end end